makeaddr := proc (x)
return := proc ( y )
x := x + y;
return := x
end
end;
addr:= makeaddr(2);
x:=1;
b:=addr(2);
c:=addr(2)
